www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Users/Users_LinkReg.asp
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <META content=ywnt,云网互动影视管理系统 name=keywords> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>自助连接</title> <link href="style/nav.css" rel="stylesheet" type="text/css" /> </head> <body> <!--#include file="../conn.asp"--> <!--#include file="../Function/Function.asp"--> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="100%" valign="top"><table width="690" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="43" background="images/user_top.gif"><table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="6%"> </td> <td width="94%">自助连接</td> </tr> </table></td> </tr> </table><br /> <table width="90%" border="0" align="center" cellpadding="5" cellspacing="0"> <tr> <td bgcolor="#f7f7f7"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="login"> <tr> <td><br> <%if GetLink("LinkOff") =0 then call ShowErr("<li>暂时自助连接功能</li>","Users_linkReg.asp",0) End if Sub RegSave() Set Rs=Server.CreateObject(YWNT_TMS_RS) sql="select * from YWNT_TMS_Link" Rs.open sql,Conn,1,3 Rs.addnew RS("LinkName")=NoSqlHack(Request.Form("LinkName")) RS("LinkUrl")=NoSqlHack(Request.Form("LinkUrl")) RS("LinkPic")=NoSqlHack(Request.Form("LinkPic")) RS("LinkType")=NoSqlHack(Request.Form("LinkType")) RS("LinkTel")=NoSqlHack(Request.Form("LinkTel")) RS("LinkNote")=NoSqlHack(Request.Form("LinkNote")) RS("LinkAudit")=0 RS("LinkDate")=Now() Rs.Update Rs.Close Set Rs = Nothing response.write"<script>alert('您已经申请友情连接成功\n等待管理员审核通过!');location.href = 'Users_Right.asp';</script>" End Sub Action=Trim(request("Action")) Select Case Action Case "Reg2" call Reg2() Case "RegSave" call RegSave() Case else call Reg1() End Select sub Reg1() IF GetLink("LinkUsersOff")=1 then IF ChecKWcafesIP(UsersIP())<>True Then IF Request.Cookies("YWNTUserCookie")("UserName")="" Then Call UsersLogin() response.end End If End If End If%> <table width="80%" align="center" cellpadding="0" cellspacing="0"> <form action="Users_linkReg.asp?Action=Reg2" method="post"> <tr> <td height="32">注册条款</td> </tr> <tr> <td><div class="textarea"><%=GetLink("LinkNeed")%></div> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td height="30" align="center"><input type="submit" name="Submit" value="同 意" /></td> </tr> </table></td> </tr> </form> </table> <%end sub sub Reg2()%> <script language="javascript" src="js/js.js"></script> <table width="70%" align="center" cellpadding="0" cellspacing="0"> <form name="form" action="Users_linkReg.asp?Action=RegSave" method="post" onSubmit="return Validator.Validate(this,3)"> <tr> <td width="20%" height="32">站点名称:</td> <td colspan="2"><input name="LinkName" id="LinkName" size="30" dataType="LimitB" min="3" max="20" msg="站点名称必须在3,20个字节之内"/> </td> </tr> <tr> <td height="32">连接类型:</td> <td colspan="2"> <input type="radio" name="LinkType" value="1" onclick="showThumbnail_RateOrSize(1,'LinkPicS')" /> 图片 <input name="LinkType" type="radio" value="0" checked="checked" onclick="showThumbnail_RateOrSize(0,'LinkPicS')" /> 文字 </span></td> </tr> <tr id="LinkPicS" style="display:none"> <td height="32">图片地址:</td> <td colspan="2"><input name="LinkPic" id="LinkPic" value="http://" size="40" maxlength="200" dataType="Filter" msg="非正确的图片格式" accept="jpg, gif, png"/></td> </tr> <tr> <td height="32">连接地址:</td> <td colspan="2"><input name="LinkUrl" type="text" id="LinkUrl" value="http://" size="40" dataType="Url" min="1" msg="非正确的Url"/></td> </tr> <tr> <td height="32">站长联系方式:</td> <td colspan="2"><input name="LinkTel" type="text" id="LinkTel" size="40" dataType="LimitB" min="1" msg="站长联系方式不能为空"/></td> </tr> <tr> <td height="32">站点说明:</td> <td colspan="2"><textarea name="LinkNote" cols="40" rows="5" id="LinkNote"></textarea></td> </tr> <tr> <td colspan="3" height="26"><table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="29%"> </td> <td width="71%" height="30"><input type="image" name="imageField" src="images/qd_06.gif" /></td> </tr> </table></td> </tr> </form> </table> <br></td> </tr> </table></td> </tr> </table></td> </tr> </table> <SCRIPT language=JavaScript type=text/JavaScript> function showThumbnail_RateOrSize(param,pname) { if(param==1) { document.getElementById(pname).style.display="block" }else { document.getElementById(pname).style.display="none" } } </SCRIPT> <%end sub call connclose()%> </body> </html>